Visual Basic 5 Developer's Kit/vb5 dev kit.iso/dev/mailx6/_setup.2/Group3/OCXMSGF2.FRM

Visual Basic Form | 1996-08-01 | 6.0 KB | 209 lines

VERSION 4.00
Begin VB.Form MsgForm
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Message Form"
   ClientHeight    =   4200
   ClientLeft      =   1830
   ClientTop       =   1650
   ClientWidth     =   6195
   BeginProperty Font
      name            =   "MS Sans Serif"
      charset         =   0
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   Height          =   4575
   Left            =   1785
   LinkTopic       =   "Form1"
   ScaleHeight     =   4200
   ScaleWidth      =   6195
   Top             =   1320
   Width           =   6285
   Begin VB.PictureBox Picture1
      BackColor       =   &H00C0C0C0&
      Height          =   615
      Left            =   -120
      ScaleHeight     =   585
      ScaleWidth      =   6345
      TabIndex        =   12
      Top             =   0
      Width           =   6375
      Begin VB.CommandButton BtnForward
         Caption         =   "Forward"
         Height          =   375
         Left            =   2880
         TabIndex        =   15
         Top             =   120
         Width           =   1155
      End
      Begin VB.CommandButton btnReply
         Caption         =   "Reply"
         Height          =   375
         Left            =   1470
         TabIndex        =   14
         Top             =   120
         Width           =   1170
      End
      Begin VB.CommandButton BtnHide
         Caption         =   "End Msg"
         Height          =   375
         Left            =   120
         TabIndex        =   13
         Top             =   120
         Width           =   1125
      End
   End
   Begin VB.ComboBox szFileList
      Height          =   315
      Left            =   1320
      TabIndex        =   11
      Top             =   2775
      Width           =   1935
   End
   Begin VB.TextBox szOriginator
      Height          =   375
      Left            =   4440
      TabIndex        =   10
      Top             =   2760
      Width           =   1575
   End
   Begin VB.TextBox szMsgID
      Height          =   495
      Left            =   1320
      TabIndex        =   7
      Top             =   3240
      Width           =   4695
   End
   Begin VB.TextBox szTime
      Height          =   375
      Left            =   1200
      TabIndex        =   6
      Top             =   2280
      Width           =   4815
   End
   Begin VB.TextBox szNoteText
      Height          =   855
      Left            =   1200
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   1320
      Width           =   4815
   End
   Begin VB.TextBox szSubject
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   840
      Width           =   4815
   End
   Begin Mailx16Lib.MFile MFile1
      Left            =   135
      Top             =   3600
      _Version        =   65542
      _ExtentX        =   900
      _ExtentY        =   900
      _StockProps     =   0
      BindString      =   "MMsg1"
   End
   Begin Mailx16Lib.MReci MReci1
      Left            =   735
      Top             =   3600
      _Version        =   65542
      _ExtentX        =   900
      _ExtentY        =   900
      _StockProps     =   0
      BindString      =   "MMsg1"
   End
   Begin Mailx16Lib.MMsg MMsg1
      Left            =   255
      Top             =   1695
      _Version        =   65542
      _ExtentX        =   900
      _ExtentY        =   900
      _StockProps     =   0
      BindString      =   "FormTag1.MSess1"
      FastFetch       =   -1  'True
   End
   Begin Mailx16Lib.MForm MForm1
      Left            =   2775
      Tag             =   "FormTag2"
      Top             =   3855
      _Version        =   65542
      _ExtentX        =   5106
      _ExtentY        =   500
      _StockProps     =   0
      MXFormName      =   "FormTag2"
   End
   Begin VB.Label Label6
      BackColor       =   &H00C0C0C0&
      Caption         =   "Attachments:"
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   2760
      Width           =   1215
   End
   Begin VB.Label Label5
      BackColor       =   &H00C0C0C0&
      Caption         =   "Originator:"
      Height          =   375
      Left            =   3450
      TabIndex        =   8
      Top             =   2805
      Width           =   960
   End
   Begin VB.Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Message ID:"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   3360
      Width           =   1215
   End
   Begin VB.Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Time:"
      Height          =   270
      Left            =   150
      TabIndex        =   4
      Top             =   2355
      Width           =   855
   End
   Begin VB.Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Note Text:"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1320
      Width           =   975
   End
   Begin VB.Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Subject:"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   840
      Width           =   855
   End
Attribute VB_Name = "MsgForm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub BtnForward_Click()
    MMsg1.Action = ACTION_FORWARD
    MMsg1.Action = ACTION_SENDMSG
End Sub
Private Sub BtnHide_Click()
    Unload Me
End Sub
Private Sub btnReply_Click()
    MMsg1.Action = ACTION_REPLY
    MMsg1.Action = ACTION_SENDMSG
End Sub